﻿Public Class ClsUcnGridUnboundItemVersionsManagement
    Inherits ClsUcnGridUnboundItemBasic
    'represents TreeList row in UcnGridUnbound usercontrol - properties of versions

#Region "Attributes"
#Region "Private attributes"
    Private MiVersion As Integer 'version
    Private MoCreated As Date 'creating date and time
    Private MsVersionName As String 'version name
#End Region
#End Region
#Region "Constructors"
    Public Sub New(ByVal IiRowID As Integer, ByVal IiParentRowID As Integer, ByVal IbEnabled As Boolean, ByVal IbSelected As Boolean, ByVal IiVersion As Integer, ByVal IsVersionName As String, ByVal IoCreated As String)
        MyBase.New(IiRowID, IiParentRowID, IbEnabled, IbSelected)

        MiVersion = IiVersion
        MoCreated = IoCreated
        MsVersionName = IsVersionName
    End Sub
#End Region

#Region "Properties"
#Region "Public properties"
    Public Property Version() As Integer
        Get
            Return MiVersion
        End Get
        Set(ByVal IiValue As Integer)
            MiVersion = IiValue
        End Set
    End Property
    Public Property Created() As Date
        Get
            Return MoCreated
        End Get
        Set(ByVal IoValue As Date)
            MoCreated = IoValue
        End Set
    End Property
    Public Property VersionName() As String
        Get
            Return MsVersionName
        End Get
        Set(ByVal IsValue As String)
            MsVersionName = IsValue
        End Set
    End Property
#End Region
#End Region

End Class





